home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / smfdoo1a / frmfile.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-13  |  6.0 KB  |  202 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFile 
  3.    BackColor       =   &H80000012&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "File"
  6.    ClientHeight    =   3975
  7.    ClientLeft      =   4485
  8.    ClientTop       =   1515
  9.    ClientWidth     =   1755
  10.    Icon            =   "frmFile.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3975
  15.    ScaleWidth      =   1755
  16.    Begin VB.CommandButton cmdDone 
  17.       Caption         =   "Done"
  18.       Height          =   375
  19.       Left            =   120
  20.       MousePointer    =   10  'Up Arrow
  21.       TabIndex        =   0
  22.       Top             =   3480
  23.       Width           =   1335
  24.    End
  25.    Begin VB.Label lblExit 
  26.       BackColor       =   &H80000012&
  27.       Caption         =   "Exit"
  28.       BeginProperty Font 
  29.          Name            =   "MS Sans Serif"
  30.          Size            =   12
  31.          Charset         =   0
  32.          Weight          =   700
  33.          Underline       =   0   'False
  34.          Italic          =   0   'False
  35.          Strikethrough   =   0   'False
  36.       EndProperty
  37.       ForeColor       =   &H00FF0000&
  38.       Height          =   495
  39.       Left            =   360
  40.       MousePointer    =   10  'Up Arrow
  41.       TabIndex        =   7
  42.       Top             =   3000
  43.       Width           =   1215
  44.    End
  45.    Begin VB.Label lblPrint 
  46.       BackColor       =   &H80000012&
  47.       Caption         =   "Print"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   12
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00FF0000&
  58.       Height          =   495
  59.       Left            =   360
  60.       MousePointer    =   10  'Up Arrow
  61.       TabIndex        =   6
  62.       Top             =   2520
  63.       Width           =   1215
  64.    End
  65.    Begin VB.Label lblSaveAs 
  66.       BackColor       =   &H80000012&
  67.       Caption         =   "Save As"
  68.       BeginProperty Font 
  69.          Name            =   "MS Sans Serif"
  70.          Size            =   12
  71.          Charset         =   0
  72.          Weight          =   700
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       ForeColor       =   &H00FF0000&
  78.       Height          =   495
  79.       Left            =   360
  80.       MousePointer    =   10  'Up Arrow
  81.       TabIndex        =   5
  82.       Top             =   2040
  83.       Width           =   1215
  84.    End
  85.    Begin VB.Label lblSave 
  86.       BackColor       =   &H80000012&
  87.       Caption         =   "Save"
  88.       BeginProperty Font 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   12
  91.          Charset         =   0
  92.          Weight          =   700
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       ForeColor       =   &H00FF0000&
  98.       Height          =   495
  99.       Left            =   360
  100.       MousePointer    =   10  'Up Arrow
  101.       TabIndex        =   4
  102.       Top             =   1560
  103.       Width           =   1215
  104.    End
  105.    Begin VB.Label lblClose 
  106.       BackColor       =   &H80000012&
  107.       Caption         =   "Close"
  108.       BeginProperty Font 
  109.          Name            =   "MS Sans Serif"
  110.          Size            =   12
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       ForeColor       =   &H00FF0000&
  118.       Height          =   495
  119.       Left            =   360
  120.       MousePointer    =   10  'Up Arrow
  121.       TabIndex        =   3
  122.       Top             =   1080
  123.       Width           =   1215
  124.    End
  125.    Begin VB.Label lblOpen 
  126.       BackColor       =   &H80000012&
  127.       Caption         =   "Open"
  128.       BeginProperty Font 
  129.          Name            =   "MS Sans Serif"
  130.          Size            =   12
  131.          Charset         =   0
  132.          Weight          =   700
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       ForeColor       =   &H00FF0000&
  138.       Height          =   495
  139.       Left            =   360
  140.       MousePointer    =   10  'Up Arrow
  141.       TabIndex        =   2
  142.       Top             =   600
  143.       Width           =   1215
  144.    End
  145.    Begin VB.Label lblNew 
  146.       BackColor       =   &H80000012&
  147.       Caption         =   "New"
  148.       BeginProperty Font 
  149.          Name            =   "MS Sans Serif"
  150.          Size            =   12
  151.          Charset         =   0
  152.          Weight          =   700
  153.          Underline       =   0   'False
  154.          Italic          =   0   'False
  155.          Strikethrough   =   0   'False
  156.       EndProperty
  157.       ForeColor       =   &H00FF0000&
  158.       Height          =   375
  159.       Left            =   360
  160.       MousePointer    =   10  'Up Arrow
  161.       TabIndex        =   1
  162.       Top             =   120
  163.       Width           =   1215
  164.    End
  165. Attribute VB_Name = "frmFile"
  166. Attribute VB_GlobalNameSpace = False
  167. Attribute VB_Creatable = False
  168. Attribute VB_PredeclaredId = True
  169. Attribute VB_Exposed = False
  170. Private Sub cmdDone_Click()
  171.     frmFile.Hide
  172.     frmHElp.Show
  173. End Sub
  174. Private Sub lblClose_Click()
  175.     frmClose.Show
  176.     frmFile.Hide
  177. End Sub
  178. Private Sub lblExit_Click()
  179.     frmExit.Show
  180.     frmFile.Hide
  181. End Sub
  182. Private Sub lblNew_Click()
  183.     frmNew.Show
  184.     frmFile.Hide
  185. End Sub
  186. Private Sub lblOpen_Click()
  187.     frmOpen.Show
  188.     frmFile.Hide
  189. End Sub
  190. Private Sub lblPrint_Click()
  191.     frmPrint.Show
  192.     frmFile.Hide
  193. End Sub
  194. Private Sub lblSave_Click()
  195.     frmSave.Show
  196.     frmFile.Hide
  197. End Sub
  198. Private Sub lblSaveAs_Click()
  199.     frmSave.Show
  200.     frmFile.Hide
  201. End Sub
  202.